home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2004 June / CD Rom Data Haziran 2004.iso / Media / Elect.dcr / Script_4_script_Text_Frame.ls < prev    next >
Encoding:
Text File  |  2004-05-21  |  387 b   |  16 lines
  1. global Metinler, Metin
  2.  
  3. on beginSprite
  4.   Metinler = baFileList(the moviePath & "Electronica\Bio\", "*.txt")
  5.   Metin = 1
  6.   sprite(8).visible = 0
  7.   sprite(9).visible = 1
  8.   importFileInto(member("text_Bio"), the moviePath & "Electronica\Bio\" & Metinler[Metin])
  9.   member(1, "Text").name = "text_Bio"
  10.   member("Metin").text = member("text_Bio").text
  11. end
  12.  
  13. on exitFrame me
  14.   go(the frame)
  15. end
  16.